home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pproject.arc / PROJSTOR.ACT < prev    next >
Encoding:
Text File  |  1990-06-07  |  1.1 KB  |  44 lines
  1. /* ProjStor.ACT        --this defines additional object storage
  2.                          related methods for the project application
  3.                        --this assumes the Object Storage methods from
  4.                          Language Extensions I are loaded
  5.                        --these are a subset of OBJSTOR2.ACT
  6. */
  7.  
  8. /* * * * * * * * * * * *
  9.   storeStructureOn methods.
  10. * * * * * * * * * * * * */
  11.  
  12. now(Date)!!
  13.  
  14. /* Override Number:storeStructureOn. */
  15. Def storeStructureOn(self, stream, table)
  16. { storeStructureOn(self:Object, stream, table);
  17. }!!
  18.  
  19. /* * * * * * * * * * * *
  20.   storeDefinitionOn methods.
  21. * * * * * * * * * * * * */
  22.  
  23. now(Date)!!
  24.  
  25. /* Override Number:storeStructureOn.
  26.   Note: Dates are stored in the form #Date(%123456L). */
  27. Def storeDefinitionOn(self, stream, table)
  28. { storeStructureOn(asLong(self), stream, table);
  29. }!!
  30.  
  31. /* * * * * * * * * * * *
  32.   getNew for various classes.
  33. * * * * * * * * * * * * */
  34.  
  35. now(class(Date))!!
  36.  
  37. Def getNew(self, reader, id | obj)
  38. { obj := new(Date);
  39.   set(obj, next(reader));
  40.   addObject(reader, id, obj);
  41.   ^obj;
  42. }!!
  43.  
  44.